home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 May
/
CHIPCD200305.iso
/
soft
/
fm42ch.exe
/
{app}
/
Foxmail.exe
/
0
/
RCDATA
/
TDLG_SMS
/
TDLG_SMS.txt
Wrap
Text File
|
2002-07-04
|
7KB
|
298 lines
object Dlg_SMS: TDlg_SMS
Left = 279
Top = 215
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'SMS'
ClientHeight = 239
ClientWidth = 359
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poOwnerFormCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Animating: TGIFAnimator
Left = 8
Top = 16
Width = 32
Height = 32
end
object Panel_Timing: TPanel
Left = 0
Top = 216
Width = 358
Height = 26
BevelOuter = bvLowered
TabOrder = 4
Visible = False
object Label3: TLabel
Left = 16
Top = 8
Width = 26
Height = 13
Caption = 'Ti&me:'
FocusControl = dtpDate
end
object Label1: TLabel
Left = 264
Top = 8
Width = 3
Height = 13
Caption = ':'
end
object dtpDate: TDateTimePicker
Left = 80
Top = 2
Width = 105
Height = 21
CalAlignment = dtaLeft
Date = 37081.647178588000000000
Time = 37081.647178588000000000
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object cmbHour: TComboBox
Left = 216
Top = 2
Width = 40
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24')
end
object cmbMin: TComboBox
Left = 280
Top = 2
Width = 40
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
Items.Strings = (
'00'
'05'
'10'
'15'
'20'
'25'
'30'
'35'
'40'
'45'
'50'
'55')
end
end
object StatusBar: TStatusBar
Left = 0
Top = 216
Width = 359
Height = 23
Panels = <
item
Width = 250
end
item
Width = 50
end>
ParentFont = True
SimplePanel = False
UseSystemFont = False
end
object GroupBox1: TGroupBox
Left = 48
Top = 8
Width = 305
Height = 48
Caption = '&Recipient'
TabOrder = 0
object btnAddress: TSpeedButton
Left = 276
Top = 16
Width = 23
Height = 22
Hint = 'Get recipient'
Anchors = [akTop, akRight]
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C1F7C1F7C6B3DA4484A49CE411F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C744E103EB556E548C6506C418C456B4D3146104210421042
103E744E1F7CD75ACB102F15314EA448A6283342124229554A350D192E194F19
7119EC14D75AD8564F214E218C4D833409259552CF3D093D8B390C1D0C192D1D
2D1D2F19B852D85A5E63B55A0751431C2A29D7568E392A393146B752B652954E
5346353E3B630F369D67525EA538091D524A744A2B35AE41B5569D6F9E6F3B67
B65656423B6341027857EF5D292DD7527C6B7B6BF149114A7D6F7D6F7C6B195F
D85A9746F85A0E3A9B678C4D744A9B6F5A675B67F85A734E7C6B9D6F7C6B3B67
F85A984A3242C46652568D41F656914AF556185F396395565B679D6F5B675C67
D85A77463B2E2E4ACE51CE4159670D3A704A7046D6569D6F5B679D6F3A63F85A
B756774AF241D65AEF4D5246DC73D456914EB24E185FBE735B677C6F7C6BF85A
F856135265649456CE4195527C6F9C6F375FF556D65ADE779D73BE73BE733A67
195F774E326E3156C620185F7C6F5B6BBD733963734EFA5AFF7FFF7FFF7FDE77
1A5F1A5F1F7C1F7C092911427B6B5B6BDE77D6567C6F7C6FFA5AFA56FA56DA52
1A5F1F7C1F7C1F7C1F7CCE3DCE39F75A7C6B94521F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C9556D65A1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C}
ParentShowHint = False
ShowHint = True
OnClick = btnAddressClick
end
object edRecipient: TZEdit
Left = 8
Top = 16
Width = 265
Height = 21
TabOrder = 0
end
end
object mmBody: TMemo
Left = 1
Top = 64
Width = 358
Height = 121
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 1
OnChange = mmBodyChange
OnKeyPress = mmBodyKeyPress
end
object Panel_Buttons: TPanel
Left = 0
Top = 186
Width = 358
Height = 28
BevelOuter = bvNone
TabOrder = 2
object btnSend: TButton
Left = 280
Top = 2
Width = 72
Height = 25
Anchors = [akTop, akRight]
Caption = '&Send'
TabOrder = 2
OnClick = btnSendClick
end
object btnCancel: TButton
Left = 189
Top = 2
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancel'
TabOrder = 1
OnClick = btnCancelClick
end
object cbTimingSend: TCheckBox
Left = 8
Top = 8
Width = 113
Height = 17
Caption = '&Timing Send'
TabOrder = 0
OnClick = cbTimingSendClick
end
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 288
Top = 112
object miCut: TMenuItem
Caption = 'Cut'
ShortCut = 16472
OnClick = miCutClick
end
object miCopy: TMenuItem
Tag = 1
Caption = 'Copy'
ShortCut = 16451
OnClick = miCutClick
end
object miPaste: TMenuItem
Tag = 2
Caption = 'Paste'
ShortCut = 16470
OnClick = miCutClick
end
object N1: TMenuItem
Caption = '-'
end
object miFont: TMenuItem
Caption = 'Font...'
OnClick = miFontClick
end
object miBkGround: TMenuItem
Caption = 'Background Color...'
OnClick = miBkGroundClick
end
object miSound: TMenuItem
Caption = 'Sound'
OnClick = miSoundClick
end
end
object Language: TLanguage
LangCenter = DM_Language.LangCenter
ResStrings.Strings = (
'0001=Recipient can not be blank!'
'0002=Message can not be blank!'
'0003=In sending...Are you sure to cancel it?'
'0004=SMS'
'0005=Chars:'
'0006=Message has been sent successfully.'
'0007=Invalid mobile phone number: '
'0008=Can not send short message to more than 10 recipients.'
'0009=Canceled'
'0010=Network Error'
'0011=TimeOut'
'0012=Error:')
Left = 248
Top = 112
end
end